function close = close(A,a)

[k,n] = size(A);
if n>1
    disp('not a vector')
else

close = find(abs(A-a)==min(abs(A-a)),1);
end;

